Private Sub CommandButton1_Click()
'      
ListBox1.RowSource = ""
' 
'   
ListBox1.ColumnHeads = False
'   
ListBox1.AddItem " 3"
'     
ListBox1.List(0, 1) = ""
'  
ListBox1.List(0, 2) = " "
ListBox1.AddItem " 2"
ListBox1.Column(1, 1) = ""
ListBox1.Column(2, 1) = " "
'  
ListBox1.AddItem " 1", 0
ListBox1.List(0, 1) = ""
ListBox1.List(0, 2) = " "
'         
TextBox1.Value = ListBox1.Column(2, 1)

End Sub
 